home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UTIL / SYS / ABODE120 / !Abode / !Run < prev    next >
Text File  |  1994-08-21  |  790b  |  30 lines
  1. |
  2. | !Run file for !Abode
  3. |
  4. Set Abode$Dir <Obey$Dir>
  5. If "<System$Path>" = "" then Error 0 System resources cannot be found
  6. IconSprites <Abode$Dir>.!Sprites
  7. RMEnsure MessageTrans 0.0 RMLoad System:modules.MsgTrans
  8. RMEnsure MenuUtils 0.10 RMLoad <Abode$Dir>.MenuUtils
  9. RMEnsure ARMBasicEditor 1.00 RMLoad <Abode$Dir>.BasicEdit
  10. |
  11. | function key definitions for use in Basic
  12. |
  13. | F1 -- show all commands
  14. | F2 -- quit basic
  15. | F3 -- run
  16. | F4 -- edit
  17. | F5 -- list variables
  18. | F9 -- edit, jumping to the line where last error occurred
  19. |
  20. Key 1 "HELP .|M"
  21. Key 2 "*Quit|M"
  22. Key 3 "RUN|M"
  23. Key 4 "EDIT|M"
  24. Key 5 "LVAR|M"
  25. Key 9 e$="ED."+STR$ERL+CHR$13:REP.:SYS 6,138,0,ASC(e$):e$=MID$(e$,2):UNT.e$=""|M
  26. |
  27. | start compressed version of program
  28. |
  29. WimpSlot -min 32k -max 32k      
  30. Run "<Abode$Dir>.!RunImage" %*0